inherited frmDlgExportaDNF: TfrmDlgExportaDNF
  Left = 322
  Top = 124
  BorderStyle = bsDialog
  Caption = 'Exportar Arquivos DNF ( Dados de Notas Fiscais)'
  ClientHeight = 200
  ClientWidth = 703
  OldCreateOrder = True
  PixelsPerInch = 96
  TextHeight = 13
  inherited pgcCadastro: TcxPageControl
    Width = 703
    Height = 200
    ClientRectBottom = 200
    ClientRectRight = 703
    inherited tbsLista: TcxTabSheet
      inherited frmTreePadrao: TPanel
        Width = 703
        Height = 200
        inherited cxGroupBox1: TcxGroupBox
          Top = 149
          TabOrder = 6
          Width = 703
          inherited PB: TcxProgressBar
            Width = 503
          end
        end
        object rdTipo: TcxRadioGroup
          Left = 0
          Top = 93
          Anchors = [akLeft, akRight, akBottom]
          Caption = 'Tipo de Arquivo'
          Properties.Columns = 3
          Properties.Items = <
            item
              Caption = 'Cadastro'
              Value = '1'
            end
            item
              Caption = 'Notas Fiscais'
              Value = '2'
            end
            item
              Caption = 'Itens Notas Fiscais'
            end>
          Properties.OnChange = rdTipoPropertiesChange
          TabOrder = 5
          Height = 53
          Width = 703
        end
        object cbPropriedade: TcxDBLookupComboBox
          Left = 297
          Top = 25
          DataBinding.DataField = 'PROPRIEDADE'
          DataBinding.DataSource = dsFiltro
          Properties.CharCase = ecUpperCase
          Properties.KeyFieldNames = 'CODIGO'
          Properties.ListColumns = <
            item
              FieldName = 'NOME'
            end>
          Properties.ListSource = dsPropriedade
          TabOrder = 1
          Width = 320
        end
        object cxLabel6: TcxLabel
          Left = 297
          Top = 9
          Caption = 'Propriedade'
        end
        object cbAnoBase: TcxDBSpinEdit
          Left = 619
          Top = 25
          DataBinding.DataField = 'ANO_BASE'
          DataBinding.DataSource = dsFiltro
          Properties.MinValue = 2000.000000000000000000
          TabOrder = 2
          Width = 79
        end
        object cxLabel5: TcxLabel
          Left = 619
          Top = 9
          Caption = 'Ano Base'
        end
        object cxLabel9: TcxLabel
          Left = 8
          Top = 9
          Caption = 'Produtor'
        end
        object cbProdutor: TcxDBLookupComboBox
          Left = 8
          Top = 25
          DataBinding.DataField = 'PRODUTOR'
          DataBinding.DataSource = dsFiltro
          Properties.CharCase = ecUpperCase
          Properties.KeyFieldNames = 'CODIGO'
          Properties.ListColumns = <
            item
              FieldName = 'NOME'
            end>
          Properties.ListSource = dsProdutor
          TabOrder = 0
          Width = 287
        end
        object edtCaminho: TcxTextEdit
          Left = 8
          Top = 66
          Enabled = False
          TabOrder = 3
          Width = 545
        end
        object cxLabel1: TcxLabel
          Left = 8
          Top = 49
          Caption = 'Caminho do Arquivo'
        end
        object BtnDir: TButton
          Left = 552
          Top = 65
          Width = 23
          Height = 23
          Cursor = crHandPoint
          Caption = '...'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'Tahoma'
          Font.Style = [fsBold]
          ParentFont = False
          TabOrder = 11
          OnClick = BtnDirClick
        end
        object cxLabel2: TcxLabel
          Left = 576
          Top = 49
          Caption = 'Dt. Gera'#231#227'o'
        end
        object edtdata: TcxDBDateEdit
          Left = 576
          Top = 66
          DataBinding.DataField = 'DATA'
          DataBinding.DataSource = dsFiltro
          TabOrder = 4
          Width = 121
        end
      end
    end
  end
  inherited cxImageList1: TcxImageList
    FormatVersion = 1
    DesignInfo = 13632264
  end
  inherited cxPropertiesStore: TcxPropertiesStore
    Components = <
      item
        Component = edtCaminho
        Properties.Strings = (
          'Anchors'
          'AutoSize'
          'BeepOnEnter'
          'Constraints'
          'Cursor'
          'DragCursor'
          'DragKind'
          'DragMode'
          'Enabled'
          'FakeStyleController'
          'Height'
          'HelpContext'
          'HelpKeyword'
          'HelpType'
          'Hint'
          'ImeMode'
          'ImeName'
          'Left'
          'Name'
          'ParentColor'
          'ParentFont'
          'ParentShowHint'
          'PopupMenu'
          'Properties'
          'RepositoryItem'
          'ShowHint'
          'Style'
          'StyleDisabled'
          'StyleFocused'
          'StyleHot'
          'TabOrder'
          'TabStop'
          'Tag'
          'Text'
          'Top'
          'Visible'
          'Width')
      end
      item
        Component = rdTipo
        Properties.Strings = (
          'Align'
          'Alignment'
          'Anchors'
          'BiDiMode'
          'Caption'
          'Constraints'
          'Ctl3D'
          'Cursor'
          'DragCursor'
          'DragKind'
          'DragMode'
          'Enabled'
          'FakeStyleController'
          'Height'
          'HelpContext'
          'HelpKeyword'
          'HelpType'
          'Hint'
          'ItemIndex'
          'Left'
          'Name'
          'ParentBackground'
          'ParentBiDiMode'
          'ParentColor'
          'ParentCtl3D'
          'ParentFont'
          'ParentShowHint'
          'PopupMenu'
          'Properties'
          'RepositoryItem'
          'ShowHint'
          'Style'
          'StyleDisabled'
          'StyleFocused'
          'StyleHot'
          'TabOrder'
          'TabStop'
          'Tag'
          'Top'
          'Transparent'
          'Visible'
          'Width')
      end>
    Left = 588
    Top = 166
  end
  inherited ActionList1: TActionList
    Left = 620
    Top = 166
    inherited ActOK: TAction
      OnExecute = ActOKExecute
    end
    inherited ActCancelar: TAction
      OnExecute = ActCancelarExecute
    end
  end
  inherited dtList: TIBQuery
    SQL.Strings = (
      'select * from pcd_exp_dapcad(:propriedade,:ano_base)')
    Left = 402
    Top = 137
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'propriedade'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'ano_base'
        ParamType = ptUnknown
      end>
    object dtListINSC_ESTADUAL: TIBStringField
      FieldName = 'INSC_ESTADUAL'
      Origin = '"PCD_EXP_DAPCAD"."INSC_ESTADUAL"'
    end
    object dtListPROPRIEDADE_NOME: TIBStringField
      FieldName = 'PROPRIEDADE_NOME'
      Origin = '"PCD_EXP_DAPCAD"."PROPRIEDADE_NOME"'
      Size = 50
    end
    object dtListPRODUTOR_NOME: TIBStringField
      FieldName = 'PRODUTOR_NOME'
      Origin = '"PCD_EXP_DAPCAD"."PRODUTOR_NOME"'
      Size = 50
    end
    object dtListLOGRADOURO_NOME: TIBStringField
      FieldName = 'LOGRADOURO_NOME'
      Origin = '"PCD_EXP_DAPCAD"."LOGRADOURO_NOME"'
      Size = 50
    end
    object dtListNUMERO: TIBStringField
      FieldName = 'NUMERO'
      Origin = '"PCD_EXP_DAPCAD"."NUMERO"'
    end
    object dtListCOMPLEMENTO: TIBStringField
      FieldName = 'COMPLEMENTO'
      Origin = '"PCD_EXP_DAPCAD"."COMPLEMENTO"'
      Size = 50
    end
    object dtListFONE: TIBStringField
      FieldName = 'FONE'
      Origin = '"PCD_EXP_DAPCAD"."FONE"'
    end
    object dtListBAIRRO_NOME: TIBStringField
      FieldName = 'BAIRRO_NOME'
      Origin = '"PCD_EXP_DAPCAD"."BAIRRO_NOME"'
      Size = 50
    end
    object dtListCEP: TIBStringField
      FieldName = 'CEP'
      Origin = '"PCD_EXP_DAPCAD"."CEP"'
    end
    object dtListCIDADE_NOME: TIBStringField
      FieldName = 'CIDADE_NOME'
      Origin = '"PCD_EXP_DAPCAD"."CIDADE_NOME"'
      Size = 50
    end
    object dtListUF: TIBStringField
      FieldName = 'UF'
      Origin = '"PCD_EXP_DAPCAD"."UF"'
      Size = 2
    end
    object dtListCRC: TIBStringField
      FieldName = 'CRC'
      Origin = '"PCD_EXP_DAPCAD"."CRC"'
    end
    object dtListGADO_PRECOCE: TIBStringField
      FieldName = 'GADO_PRECOCE'
      Origin = '"PCD_EXP_DAPCAD"."GADO_PRECOCE"'
      FixedChar = True
      Size = 1
    end
    object dtListGADO_REGISTRADO: TIBStringField
      FieldName = 'GADO_REGISTRADO'
      Origin = '"PCD_EXP_DAPCAD"."GADO_REGISTRADO"'
      FixedChar = True
      Size = 1
    end
    object dtListGADO_LEITEIRO: TIBStringField
      FieldName = 'GADO_LEITEIRO'
      Origin = '"PCD_EXP_DAPCAD"."GADO_LEITEIRO"'
      FixedChar = True
      Size = 1
    end
    object dtListQTDE_VACAS: TIBBCDField
      FieldName = 'QTDE_VACAS'
      Origin = '"PCD_EXP_DAPCAD"."QTDE_VACAS"'
      Precision = 18
      Size = 2
    end
    object dtListQTDE_LEITE_COMERCIALIZADO: TIBBCDField
      FieldName = 'QTDE_LEITE_COMERCIALIZADO'
      Origin = '"PCD_EXP_DAPCAD"."QTDE_LEITE_COMERCIALIZADO"'
      Precision = 18
      Size = 2
    end
    object dtListAJUSTE_MACHO: TIBBCDField
      FieldName = 'AJUSTE_MACHO'
      Origin = '"PCD_EXP_DAPCAD"."AJUSTE_MACHO"'
      Precision = 18
      Size = 2
    end
    object dtListAJUSTE_FEMEA: TIBBCDField
      FieldName = 'AJUSTE_FEMEA'
      Origin = '"PCD_EXP_DAPCAD"."AJUSTE_FEMEA"'
      Precision = 18
      Size = 2
    end
    object dtListV_ENTRADAS_BOVINOS: TIBBCDField
      FieldName = 'V_ENTRADAS_BOVINOS'
      Origin = '"PCD_EXP_DAPCAD"."V_ENTRADAS_BOVINOS"'
      Precision = 18
      Size = 2
    end
    object dtListV_SAIDAS_BOVINOS: TIBBCDField
      FieldName = 'V_SAIDAS_BOVINOS'
      Origin = '"PCD_EXP_DAPCAD"."V_SAIDAS_BOVINOS"'
      Precision = 18
      Size = 2
    end
    object dtListV_INSUMOS_BOVINOS: TIBBCDField
      FieldName = 'V_INSUMOS_BOVINOS'
      Origin = '"PCD_EXP_DAPCAD"."V_INSUMOS_BOVINOS"'
      Precision = 18
      Size = 2
    end
    object dtListV_INS_OUTROS_ANIM: TIBBCDField
      FieldName = 'V_INS_OUTROS_ANIM'
      Origin = '"PCD_EXP_DAPCAD"."V_INS_OUTROS_ANIM"'
      Precision = 18
      Size = 2
    end
    object dtListV_INSUMOS_AGRICOLA: TIBBCDField
      FieldName = 'V_INSUMOS_AGRICOLA'
      Origin = '"PCD_EXP_DAPCAD"."V_INSUMOS_AGRICOLA"'
      Precision = 18
      Size = 2
    end
    object dtListCAPACIDADE_ARMAZEN: TIBBCDField
      FieldName = 'CAPACIDADE_ARMAZEN'
      Origin = '"PCD_EXP_DAPCAD"."CAPACIDADE_ARMAZEN"'
      Precision = 18
      Size = 2
    end
    object dtListTIPO_LOGRADOURO: TIBStringField
      FieldName = 'TIPO_LOGRADOURO'
      Origin = '"PCD_EXP_DAPCAD"."TIPO_LOGRADOURO"'
      FixedChar = True
      Size = 3
    end
    object dtListTIPO_BAIRRO: TIBStringField
      FieldName = 'TIPO_BAIRRO'
      Origin = '"PCD_EXP_DAPCAD"."TIPO_BAIRRO"'
      FixedChar = True
      Size = 3
    end
    object dtListCDD_COD_SEFAZ: TIBStringField
      FieldName = 'CDD_COD_SEFAZ'
      Origin = '"PCD_EXP_DAPCAD"."CDD_COD_SEFAZ"'
      Size = 10
    end
    object dtListAG_COD_SEFAZ: TIBStringField
      FieldName = 'AG_COD_SEFAZ'
      Origin = '"PCD_EXP_DAPCAD"."AG_COD_SEFAZ"'
      Size = 10
    end
    object dtListPP_CDD_COD_SEFAZ: TIBStringField
      FieldName = 'PP_CDD_COD_SEFAZ'
      Origin = '"PCD_EXP_DAPCAD"."PP_CDD_COD_SEFAZ"'
      Size = 10
    end
    object dtListEMAIL: TIBStringField
      FieldName = 'EMAIL'
      Origin = '"PCD_EXP_DAPCAD"."EMAIL"'
      Size = 50
    end
    object dtListN_CPR: TIntegerField
      FieldName = 'N_CPR'
      Origin = '"PCD_EXP_DAPCAD"."N_CPR"'
    end
    object dtListP_TIPO_PESSOA: TIBStringField
      FieldName = 'P_TIPO_PESSOA'
      Origin = '"PCD_EXP_DAPCAD"."P_TIPO_PESSOA"'
      FixedChar = True
      Size = 1
    end
    object dtListP_CPF: TIBStringField
      FieldName = 'P_CPF'
      Origin = '"PCD_EXP_DAPCAD"."P_CPF"'
    end
  end
  inherited dsRegistro: TDataSource
    Left = 492
    Top = 166
  end
  inherited mtbFiltro: TdxMemData
    Left = 396
    Top = 166
    object mtbFiltroPROPRIEDADE: TIntegerField
      FieldName = 'PROPRIEDADE'
    end
    object mtbFiltroANO_BASE: TIntegerField
      FieldName = 'ANO_BASE'
    end
    object mtbFiltroPRODUTOR: TIntegerField
      FieldName = 'PRODUTOR'
      OnChange = mtbFiltroPRODUTORChange
    end
    object mtbFiltroDATA: TDateField
      FieldName = 'DATA'
    end
  end
  inherited dsFiltro: TDataSource
    Left = 371
    Top = 166
  end
  inherited lstParametro: TIBQuery
    Left = 372
    Top = 136
  end
  object lstPropriedade: TIBQuery
    Database = dmPrincipal.Database
    Transaction = dmPrincipal.Transaction
    BeforeOpen = lstPropriedadeBeforeOpen
    SQL.Strings = (
      'select pp.codigo, pp.nome from propriedade pp'
      'where pp.produtor = :codigo')
    Left = 340
    Top = 134
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'codigo'
        ParamType = ptUnknown
      end>
    object lstPropriedadeCODIGO: TIntegerField
      FieldName = 'CODIGO'
      Origin = '"PROPRIEDADE"."CODIGO"'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object lstPropriedadeNOME: TIBStringField
      FieldName = 'NOME'
      Origin = '"PROPRIEDADE"."NOME"'
      Size = 50
    end
  end
  object dsPropriedade: TDataSource
    DataSet = lstPropriedade
    Left = 340
    Top = 166
  end
  object dsProdutor: TDataSource
    DataSet = lstProdutores
    Left = 308
    Top = 166
  end
  object lstProdutores: TIBQuery
    Database = dmPrincipal.Database
    Transaction = dmPrincipal.Transaction
    SQL.Strings = (
      'select p.codigo, p.nome from produtores p'
      'where p.produtor = '#39'S'#39' and p.ativo = '#39'S'#39)
    Left = 308
    Top = 134
    object lstProdutoresCODIGO: TIntegerField
      FieldName = 'CODIGO'
      Origin = '"PRODUTORES"."CODIGO"'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object lstProdutoresNOME: TIBStringField
      FieldName = 'NOME'
      Origin = '"PRODUTORES"."NOME"'
      Size = 50
    end
  end
  object DIR: TOpenDialog
    DefaultExt = 'txt'
    Filter = '*.txt'
    Left = 459
    Top = 163
  end
  object dtListDNFNOTAS: TIBQuery
    Database = dmPrincipal.Database
    Transaction = dmPrincipal.Transaction
    SQL.Strings = (
      'select *'
      '      from PCD_EXP_DNFNOTAS(:propriedade,:ano_base)'
      '      ')
    Left = 434
    Top = 137
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'propriedade'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'ano_base'
        ParamType = ptUnknown
      end>
    object dtListDNFNOTASNUM_NF: TIBStringField
      FieldName = 'NUM_NF'
      Origin = '"PCD_EXP_DNFNOTAS"."NUM_NF"'
    end
    object dtListDNFNOTASSERIE: TIBStringField
      FieldName = 'SERIE'
      Origin = '"PCD_EXP_DNFNOTAS"."SERIE"'
      FixedChar = True
    end
    object dtListDNFNOTASINSC_ESTADUAL: TIBStringField
      FieldName = 'INSC_ESTADUAL'
      Origin = '"PCD_EXP_DNFNOTAS"."INSC_ESTADUAL"'
    end
    object dtListDNFNOTASTERC_TIPO_PESSOA: TIBStringField
      FieldName = 'TERC_TIPO_PESSOA'
      Origin = '"PCD_EXP_DNFNOTAS"."TERC_TIPO_PESSOA"'
      FixedChar = True
      Size = 1
    end
    object dtListDNFNOTASDT_EMISSAO: TDateField
      FieldName = 'DT_EMISSAO'
      Origin = '"PCD_EXP_DNFNOTAS"."DT_EMISSAO"'
    end
    object dtListDNFNOTASOP_CODIGO_TBL_DAP: TIBStringField
      FieldName = 'OP_CODIGO_TBL_DAP'
      Origin = '"PCD_EXP_DNFNOTAS"."OP_CODIGO_TBL_DAP"'
      FixedChar = True
      Size = 2
    end
    object dtListDNFNOTASTERC_CPF: TIBStringField
      FieldName = 'TERC_CPF'
      Origin = '"PCD_EXP_DNFNOTAS"."TERC_CPF"'
    end
  end
  object dtListDNFNOTASITENS: TIBQuery
    Database = dmPrincipal.Database
    Transaction = dmPrincipal.Transaction
    SQL.Strings = (
      'select *'
      '      from PCD_EXP_DNFNOTAS_ITENS(:propriedade,:ano_base)'
      '      ')
    Left = 466
    Top = 137
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'propriedade'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'ano_base'
        ParamType = ptUnknown
      end>
    object dtListDNFNOTASITENSNUM_NF: TIBStringField
      FieldName = 'NUM_NF'
      Origin = '"PCD_EXP_DNFNOTAS_ITENS"."NUM_NF"'
    end
    object dtListDNFNOTASITENSSERIE: TIBStringField
      FieldName = 'SERIE'
      Origin = '"PCD_EXP_DNFNOTAS_ITENS"."SERIE"'
      FixedChar = True
    end
    object dtListDNFNOTASITENSINSC_ESTADUAL: TIBStringField
      FieldName = 'INSC_ESTADUAL'
      Origin = '"PCD_EXP_DNFNOTAS_ITENS"."INSC_ESTADUAL"'
    end
    object dtListDNFNOTASITENSTERC_TIPO_PESSOA: TIBStringField
      FieldName = 'TERC_TIPO_PESSOA'
      Origin = '"PCD_EXP_DNFNOTAS_ITENS"."TERC_TIPO_PESSOA"'
      FixedChar = True
      Size = 1
    end
    object dtListDNFNOTASITENSDT_EMISSAO: TDateField
      FieldName = 'DT_EMISSAO'
      Origin = '"PCD_EXP_DNFNOTAS_ITENS"."DT_EMISSAO"'
    end
    object dtListDNFNOTASITENSOP_CODIGO_TBL_DAP: TIBStringField
      FieldName = 'OP_CODIGO_TBL_DAP'
      Origin = '"PCD_EXP_DNFNOTAS_ITENS"."OP_CODIGO_TBL_DAP"'
      FixedChar = True
      Size = 2
    end
    object dtListDNFNOTASITENSTERC_CPF: TIBStringField
      FieldName = 'TERC_CPF'
      Origin = '"PCD_EXP_DNFNOTAS_ITENS"."TERC_CPF"'
    end
    object dtListDNFNOTASITENSPRODUTO: TIntegerField
      FieldName = 'PRODUTO'
      Origin = '"PCD_EXP_DNFNOTAS_ITENS"."PRODUTO"'
    end
    object dtListDNFNOTASITENSQTDE: TIBBCDField
      FieldName = 'QTDE'
      Origin = '"PCD_EXP_DNFNOTAS_ITENS"."QTDE"'
      Precision = 18
      Size = 2
    end
    object dtListDNFNOTASITENSVALOR: TIBBCDField
      FieldName = 'VALOR'
      Origin = '"PCD_EXP_DNFNOTAS_ITENS"."VALOR"'
      Precision = 18
      Size = 2
    end
  end
end
